home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / comm / bbs / VBBSDisk5_0.lzh / AMUC_Express.script < prev    next >
Text File  |  1991-09-15  |  1KB  |  80 lines
  1. ;VBBS.scp - script for dialing both of VBBS's lines automatically
  2. ;
  3. ;Features:
  4. ;     - handles both lines
  5. ;     - properly steps between lines
  6. ;     - waits a minute if both lines are busy, before tryinng again
  7. ;     - adjusts modems "NO CONNECT" timeout to more optimum values
  8. ;         (this may need individual attention)
  9. ;     - more reliable design
  10. ;     - allows human assistance (you can hit <return> if you hear a busy
  11. ;         signal, and your modem doesn't detect it)
  12. ;
  13. ;  This script works very nicely on USR modems.
  14. ;
  15. ;/kenw 910210
  16.  
  17. init
  18.  
  19.   delay 15      ; make sure modem is clear
  20.   send +++
  21.   delay 20
  22.   send atz
  23.   cr
  24.   wait OK
  25.   send ats7=25      ; set fairly short "connect patience"
  26.   cr
  27.   wait OK
  28.  
  29.   on CONNECT startproto  ;when we get a CONNECT we go to the startproto label
  30.  
  31. line1
  32.   cr
  33.   on "NO CARRIER" line2
  34.   on BUSY line2
  35.   send atdp282-5238
  36.   cr
  37.   delay 500
  38.   cr
  39.   wait OK
  40.  
  41. line2
  42.   cr
  43.   on "NO CARRIER" line3
  44.   on BUSY line3
  45.   send atdp282-5137
  46.   cr
  47.   delay 500
  48.   cr
  49.   wait OK
  50.  
  51. line3
  52.   cr
  53.   on "NO CARRIER" line4
  54.   on BUSY line4
  55.   send atdp282-5171
  56.   cr
  57.   delay 500
  58.   cr
  59.   wait OK
  60.  
  61. line4
  62.   cr
  63.   on "NO CARRIER" line1
  64.   on BUSY line1
  65.   send atdp282-5224
  66.   cr
  67.   delay 500
  68.   cr
  69.   wait OK
  70.  
  71. waitaminute
  72.   print "Can't get through - waiting a minute before trying again..."
  73.   delay 600
  74.   goto line1
  75.  
  76. startproto
  77.   wait 5
  78.   print "We have connection, starting protocol"
  79.   exit
  80.